From 9d2de40ea35c0a64a6205864b53d9cea8101c73b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 4 Feb 2009 07:44:03 +0000 Subject: [PATCH] (select-safe-coding-system): Use buffer-chars-modified-tick instead of buffer-modified-tick. --- lisp/international/mule-cmds.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index cbed1e3659e..451ac39cbfa 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -975,7 +975,7 @@ It is highly recommended to fix it before writing to a file." (let ((codings (find-coding-systems-region from to)) (coding-system nil) - (tick (if (not (stringp from)) (buffer-modified-tick))) + (tick (if (not (stringp from)) (buffer-chars-modified-tick))) safe rejected unsafe) (if (eq (car codings) 'undecided) ;; Any coding system is ok. @@ -1041,7 +1041,7 @@ It is highly recommended to fix it before writing to a file." %s specified by file contents. Really save (else edit coding cookies \ and try again)? " coding-system auto-cs)) (error "Save aborted")))) - (when (and tick (/= tick (buffer-modified-tick))) + (when (and tick (/= tick (buffer-chars-modified-tick))) (error "Cancelled because the buffer was modified")) coding-system))) -- 2.30.2